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Hardware: 

Function: 

Format: 



Example: 


Core: 
Use: 



Execution 


Restarts: 


)ECUS Program Library Write-up 


DECUS NO. 8-533 - - 


"WHERE" 


4- K PDP-8/E with console printer (TTY, Decwriter) and 
low or high speed paper tape reader. 

Determines where (fields and addresses) the data and 
instructions on a binary paper tape will be deposited 
if that tape is loaded into core. 

Address codes on the paper tape are printed out in a 

5- character format, *0200 [no field pseudo-op. has yet 
been read], 10200 [field 1, addr. 0200], etc. 

Before each of these addresses is printed, "Where" does 
a check to see if any data/instructions have been read 
since the last tape address code. If so, the last loca¬ 
tion occupied by data/instructions is printed out in a 
4-digit format (no field code or * ). 


*0200 

10200 

0375 

10400 

0531 


/0200 on tape; nc field specified 

/no data followed, hence no 4-digit addr. 

/field 1, address 0200 

/last datum in 0275, field 1 

/new address code, 0400 in field 1 

/last location used by data/instr. 

/end of tape 


Occupies 4400-4566 in any core field. 


Load with binary loader. Place binary tape whose addresses 
you wish to read in either the low-speed paper tape reader 
or (if you have one) in the high-speec reader. Start the 
computer at address 4400. 


Time: Depends on (a) reader speed (b) keyboard speed 

(c) whether the binary tape being reac is "chopped up" 
or reasonably continuous. With the high-speed reader 
in particular, execution is quite rapid, much faster 
than would be required for disassembling the binary tape. 

Press "Continue" after a halt to restart. 

The console keyboard is live at all times when the routine 
is running, and will glitch things thoroughly if someone 
hits a key. 


Caution: 






/ M UHERE**t PROGRAM TO FIND FIELDS AND ADDRESS 
/ BLOCKS VHIGH A BINARY TAPE WILL OCCUPY 


/TAPE ADDRESS CODES ARE PRINTED IN A 5-DIGIT FORMAT 
/ COR PRECEDED BY ”***>; DATA ADDRESSES# IN A 
/ 4-DIGIT FORMAT. 




/ 

E FOR PDP-0/E 



*4400 


4400 

1335 

INI T# 

TAD K215 

4401 

6046 


TLS 

4402 

1336 


TAD K212 

4403 

4353 


JMS TYPE 

4404 

6032 


KCC 

4405 

3361 


DCA ADRS 

4406 

3366 


DCA FLAG 

4407 

1365 


TAD K7723 


4410 

3362 


DCA DATAF 

4411 

6014 


RFC 

4412 

4337 

LOOP1# 

JMS READ 

4413 

1340 


TAD M200 

4414 

7450 


SNA 

4415 

5212 


JMP .-3 

4416 

7701 


CL A MQA 

4417 

7410 


SKP 

4420 

4337 

L00P2# 

JMS READ 

4421 

1233 


TAD Ml00 

4422 

7500 


SMA 

4423 

5232 


JMP NOTDATA 



/«*—- 





/ROUTINE FOR 

4424 

4337 


JMS READ 

4425 

2361 


ISZ ADRS 

4426 

7000 


NOP 

4427 

7001 


I AC 

4430 

3366 


DCA FLAG 

4431 

5220 


JMP L00P2 



/- 


4432 

1233 

NOTDAT# 

TAD Ml00 

4433 

7700 

Ml 00# 

SMA CLA 

4434 

5271 


JMP FLDOP 



... 


4435 

1366 


TAD FLAG 

4436 

7650 


SNA CLA 

4437 

5243 


JMP .*4 

4440 

7040 


CM A 

4441 

1361 


TAD ADRS 


SERIES ONLY. 3 


/FLAG-0 UNTIL DATA 
/PRINT ***** BEFORE TAPE 
/ ADRS. CODES UNTIL FIELD 
/ PS.-OP. IS READ 


/LEADER? 

/YES# LOOP BACK 


DATA WORDS < FRAME l«100)t 

/IGNORE 1ST FRAME; READ NEXT... 
/COUNT UP ADRS* PTR* 


/TO SHOW THAT A DATUM HAS BEEN 
/ READ SINCE LAST ADRS. CODE 
/IGNORE 2ND FRAME; READ NEXT 

/ADRS. OR FI ELD OR TRLR* ? 

/ CO DE< 200? 

/NO 

/YES 

/NO DATA SINCE LAST ADRS CODE; 
/ DO NOT PRINT CURRENT ADRS. 
/COUNT ADRS DOW BY 1 







I 


4442 

4305 


JMS OCTP 

/PRINT# IN 4-DIGIT FORMAT# THE 
/ LAST ADRS. OCCUPIED BY DATA 

4443 

1362 


TAD DATAF 

/CURRENT D.F. 

4444 

7112 


CLL RTR 


4445 

7010 


RAR 


4446 

1334 


TAD K260 


4447 

4353 


JMS TYPE 

/TYPE CURRENT FLD. <1 DIGIT) 

4450 

7501 


MQA 

/GET NEV ADRS. 

4451 

7002 


BSV 

/SHIFT BITS 6-11 INTO 0-5 

4452 

0233 


AND Ml00 

/STRIP WE "1" 

4453 

6011 


RSF 

/READ 2ND FRAME OF NEV ADRS. 

4454 

5257 


JMP •♦3 


4455 

6012 


RRB 

/"OR" IT WIW 1ST FRAME 

4456 

5262 


JMP .♦4 


4457 

6031 


KSF 

/(ROUTINE CHECKS BOW READERS) 

4460 

5253 


JMP .-5 


4461 

6034 


KRS 


4462 

3361 


DCA ADRS 


4463 

6032 


KCC 


4464 

6014 


RFC 


4465 

1361 


TAD ADRS 


4466 

4305 


JMS OCTP 


4467 

3366 


DCA FLAG 


4470 

5220 


JMP L00P2 


4471 

7501 

FLDOP# 

MQA 


4472 

1340 


TAD M200 

/TRAILER YET? 

447 3 

7550 


SPA SNA 


4474 

5300 


JMP STOP 

/YES 

4475 

1233 


TAD Ml00 

/NO# GET FLD. 

447 6 

3362 


DCA DATAF 

/CODE-300# E.G. "10" 

4477 

5220 


JMP L00P2 


4500 

7344 

STOP# 

CLA CM A CLL 

RAL /-2 

4501 

1361 


TAD ADRS 

/COUNT BACK TVICE# SINCE CKSUM 
/ IS NOT A DATUM 

4502 

4305 


JMS OCTP 


4503 

7402 


HLT 


4504 

5200 


JMP INI T 

/RESTART BY "CONTINUE" 



/SUBROUTINES 4 CONSTANTS* 

4505 

0000 

OCTP# 

0 


4506 

3337 


DCA READ 


4507 

1333 


TAD M4 

/FOUR DIGITS MUST BE ROTATED 
/ INTO BITS 9-11 

4510 

3364 


DCA CTR 


4511 

1337 


TAD READ 


4512 

7104 


CLL RAL 

/ROTATE 1+12 TIMES CLINK!) 

4513 

7004 

ROT# 

RAL 


4514 

7006 


RTL 


4515 

3337 


DCA READ 


4516 

1337 


TAD READ 


4517 

0363 


AND K7 


4520 

1334 


TAD K260 

/NUMERAL CODE 


3 




4581 

4588 

4583 

4584 

4585 

4586 

4587 

4530 

4531 
4538 

4533 

4534 

4535 

4536 

4537 

4540 

4541 
4548 

4543 

4544 

4545 

4546 

4547 

4550 

4551 
4558 ^ 

4553 

4554 

4555 

4556 

4557 

4560 

4561 
4568 

4563 

4564 

4565 

4566 


4353 


1337 


8364 


5313 


7800 


1335 


4353 


1336 


4353 


5705 


7774 

M4# 

0860 

K860# 

0815 

KS1S# 

0818 

K818# 

0000 

READ# 

7600 

M200# 

6011 

HI# 

5345 


6016 


5350 


6031 

LO# 

5341 


6036 


7481 


7501 


5737 


0000 

TYPE# 

6041 


5354 


6046 


7800 


5753 


0000 

ADRS# 

0000 

DATAF# 

0007 

K7# 

0000 

CTR# 

7783 

K7783# 

0000 

FLAG# 


JMS TYPE 
TAD READ 
ISZ CTR 
JMP ROT 

TAD X815 
JMS TYPE 
TAD K818 
JMS TYPE 
JMP I OCTP 

-4 

860 

815 

818 

0 

7600 
RSF 
JMP LO 
RRB RFC 
JMP •♦4 
KSF 
JMP HI 
KRB 
MOL 
MQA 

JMP I READ 
0 

TSF 

JMP 1 

TLS 

CLA 

JMP I TYPE 

0 

0 

7 

0 

7783 

0 



/(ROUTINE CHECKS BOTH READERS) 


/STORE FRAME 
/RETRIEVE IT 


/ROTATES INTO -6 OCTAL 


4 




ADRS 

4561 

CTR 

4564 

EATAF 

4562 

FLAG 

4566 

H.DOP 

4471 

HI 

4541 

WIT 

4400 

K212 

4536 

KRIS 

4535 

K260 

4534 

K7 

4563 

K7723 

4565 

LO 

4545 

LOO PI 

4412 

LOOPS 

4420 

Ml 00 

4433 

MS 00 

4540 

M4 

4533 

MOTDAT 

4432 

OCTP 

4505 

READ 

4537 

ROT 

4513 

STOP 

4500 

TTPE 

4553 





